home *** CD-ROM | disk | FTP | other *** search
/ Developer Helper 1: Phil & Dave's Excellent CD / Excellent CD HFS.raw / Utilities / ResEdit / Examples / PExamples / Source / ResDisp.a < prev    next >
Text File  |  2022-08-05  |  5KB  |  196 lines
  1. ; File ResDisp.a
  2. ;
  3. ; COPYRIGHT (C) 1984-1989 Apple Computer,Inc.
  4. ; All rights reserved
  5.  
  6. ; Linking with this code allows Pickers, Editors or whatever to call
  7. ; certain routines in ResEdit’s CODE segments.
  8.  
  9.     PROC
  10.  
  11. ApplScratch    equ    $a78
  12.  
  13.  
  14.             EXPORT      CallPBirth
  15.             EXPORT      CallEBirth
  16.             EXPORT      CallMenu
  17.             EXPORT      CallEvent
  18.             EXPORT      CallInfoUpdate
  19.             EXPORT      PassMenu
  20.  
  21. ;-----------------------------------------------------------------------------------
  22. ;
  23. ;   CallEBirth(thing:Handle;parent:ParentHandle;id:Integer);
  24. ;   CallPBirth(thing:Handle;parent:ParentHandle;id:Integer);
  25. ;
  26. ;-----------------------------------------------------------------------------------
  27. CallEBirth  MOVE.L      (SP)+,A0
  28.             MOVE.L      #0,-(SP)
  29.             BRA.S       CallIt
  30.  
  31. CallPBirth  MOVE.L      (SP)+,A0
  32.             MOVE.L      #2,-(SP)
  33. ;           BRA.S       CallIt
  34.  
  35.  
  36. CallIt
  37.             MOVE.L      A0,-(SP)
  38.  
  39. ; Calls back to main program
  40. ;         .DEF     CallEBirth
  41. ;         .DEF     CallPBirth
  42.             EXPORT      CallEvent
  43.             EXPORT      CallMenu
  44.             EXPORT      CallInfoUpdate
  45.  
  46.             EXPORT      PassMenu
  47.             EXPORT        GiveSubEBirth
  48.             EXPORT        GetQuickDrawVars
  49.             EXPORT        NeedToRevert
  50.  
  51.             EXPORT      WindAlloc
  52.             EXPORT        SendRebuildToPickerAndFile
  53.             EXPORT        WindReturn
  54.             EXPORT      WindList
  55.             EXPORT      WindOrigin
  56.             EXPORT      WindSetup
  57.             EXPORT      AbleMenu
  58.             EXPORT        CWindSetup
  59.             EXPORT      AddNewRes
  60.             EXPORT      BubbleUp
  61.             EXPORT      BuildType
  62.             EXPORT        GrowMyWindow
  63.             EXPORT      ConcatStr
  64.             EXPORT        PickStdRows
  65.             EXPORT        PickStdWidth
  66.             EXPORT      CopyRes
  67.             EXPORT      CurrentRes
  68.             EXPORT      DoListEvt
  69.             EXPORT      DupPick
  70.             EXPORT        SysResFile
  71.             EXPORT        RevertThisResource
  72.             EXPORT      FixHand
  73.             EXPORT      GetStr
  74.             EXPORT      Get1Index
  75.             EXPORT        RemoveResource
  76.             EXPORT        Get1Res
  77.             EXPORT      GiveEBirth
  78.             EXPORT      HandleCheck
  79.             EXPORT      MetaKeys
  80.             EXPORT      NewRes
  81.             EXPORT      PickEvent
  82.             EXPORT      PickInfoUp
  83.             EXPORT      PickMenu
  84.             EXPORT      ScrapCopy
  85.             EXPORT      ScrapEmpty
  86.             EXPORT      ScrapPaste
  87.             EXPORT      SetResChanged
  88.             EXPORT      SetETitle
  89.             EXPORT      RevertResource
  90.             EXPORT      ShowInfo
  91.  
  92.             EXPORT      MyCalcMask
  93.             
  94.             EXPORT      GiveThisEBirth
  95.         
  96.             EXPORT    KillCache
  97.             EXPORT    DefaultListCellSize
  98.             EXPORT    DoKeyScan
  99.             EXPORT    TypeToString
  100.             EXPORT    FrameDialogItem
  101.             EXPORT    FlashDialogItem
  102.             EXPORT    AlreadyOpen
  103.             EXPORT    EditorWindSetup
  104.             EXPORT    GetWindowTitle
  105.             EXPORT    Abort
  106.             EXPORT    DisplayAlert
  107.             EXPORT    WasAborted
  108.             EXPORT    GetType
  109.             EXPORT    CheckError
  110.             EXPORT    CloseNoSave 
  111.             EXPORT    SetTheCursor
  112.  
  113. CallOut            JSR    DivingBoard
  114. WindAlloc       JSR DivingBoard
  115. SendRebuildToPickerAndFile    JSR DivingBoard    ; 3
  116. WindList        JSR DivingBoard
  117. WindOrigin      JSR DivingBoard
  118. WindSetup       JSR    DivingBoard
  119.  
  120. ; Common stuff
  121. AbleMenu        JSR DivingBoard
  122. CWindSetup        JSR DivingBoard
  123. AddNewRes       JSR DivingBoard
  124. BubbleUp        JSR DivingBoard            ;10
  125. BuildType       JSR DivingBoard
  126. GrowMyWindow    JSR DivingBoard
  127. CopyRes            JSR DivingBoard
  128. ConcatStr       JSR    DivingBoard
  129. PickStdRows        JSR    DivingBoard
  130. PickStdWidth    JSR    DivingBoard
  131. CurrentRes         JSR    DivingBoard
  132. DoListEvt          JSR    DivingBoard
  133. DupPick               JSR    DivingBoard
  134. SysResFile         JSR    DivingBoard            ;20
  135. RevertThisResource    JSR    DivingBoard
  136. FixHand               JSR    DivingBoard
  137. GetStr               JSR    DivingBoard
  138. Get1Index          JSR    DivingBoard            
  139. RemoveResource    JSR    DivingBoard
  140. Get1Res            JSR    DivingBoard
  141. GiveEBirth         JSR    DivingBoard
  142. HandleCheck        JSR    DivingBoard
  143. MetaKeys           JSR    DivingBoard
  144. NewRes               JSR    DivingBoard            ;30
  145. PickEvent          JSR    DivingBoard
  146. PickInfoUp         JSR    DivingBoard
  147. PickMenu           JSR    DivingBoard
  148. RevertResource  JSR    DivingBoard
  149. ScrapCopy          JSR    DivingBoard
  150. ScrapEmpty         JSR    DivingBoard
  151. ScrapPaste         JSR    DivingBoard
  152. SetResChanged    JSR    DivingBoard
  153. ShowInfo           JSR    DivingBoard
  154. SetETitle          JSR    DivingBoard            ;40
  155.  
  156. CallEvent          JSR    DivingBoard
  157. CallMenu           JSR    DivingBoard
  158. CallInfoUpdate    JSR    DivingBoard
  159. PassMenu           JSR    DivingBoard
  160. GiveSubEBirth      JSR    DivingBoard
  161. GetQuickDrawVars JSR    DivingBoard
  162. NeedToRevert    JSR    DivingBoard
  163. spare8            JSR    DivingBoard          ; UNUSED *****        ; 50
  164. MyCalcMask        JSR    DivingBoard        ; 51
  165. GiveThisEBirth    JSR    DivingBoard        ; 52
  166. WindReturn        JSR    DivingBoard        ; 53
  167. KillCache        JSR    DivingBoard        ; 54
  168. DefaultListCellSize            
  169.                 JSR    DivingBoard        ; 55
  170. DoKeyScan        JSR    DivingBoard        ; 56
  171. TypeToString    JSR    DivingBoard        ; 57
  172. FrameDialogItem    JSR    DivingBoard        ; 58
  173. FlashDialogItem    JSR    DivingBoard        ; 59
  174. AlreadyOpen        JSR    DivingBoard        ; 60
  175. EditorWindSetup    JSR    DivingBoard        ; 61
  176. GetWindowTitle    JSR    DivingBoard        ; 62
  177. Abort            JSR    DivingBoard        ; 63
  178. DisplayAlert    JSR    DivingBoard        ; 64
  179. WasAborted        JSR    DivingBoard        ; 65
  180. GetType            JSR    DivingBoard        ; 66
  181. CheckError        JSR DivingBoard        ; 67
  182. CloseNoSave        JSR DivingBoard        ; 68
  183. SetTheCursor    JSR DivingBoard        ; 69
  184.  
  185.             
  186.             ; Max 70
  187.  
  188. DivingBoard
  189.             LEA            CallOut+4,A1
  190.             MOVE.L      (SP)+,A0
  191.             SUB.L       A1,A0
  192.             ADD.L       ApplScratch,A0
  193.             MOVE.L      (A0),A0
  194.             JMP            (A0)
  195.  
  196.     END